PAGE.F4 -----

3801	IF(R.NE.17)GO TO 3800
	RR=RN(J+5)
	IF(IPG.GE.0)GO TO 3803
	IF(RSN.NE.SN)GO TO 6
C FOR PARTS:  SKIP IF NOT ON RIGHT STAFF.
	IF(QSIG.EQ.RR)GO TO 6
C FOR PARTS:  IF SAME KEY SIG. THEN OMIT IT.
	QSIG=RR
	GO TO 3804
3803	IF(RR.EQ.RSIG(ISN))GO TO 6
C SKIPS DUPL. KEY SIGS. 
C***** WHAT ABOUT CHANGING KEY SIGS?????
	RSIG(ISN)=RR
	GO TO 1800
C****10/2/80**** ABOVE 2 FOR CHANGING KEY SIG. ( I HOPE!)
CC	YSIG=0
3804	IF(RSIG(ISN).EQ.99)RSIG(ISN)=RR
C SETS UP KSIG ONCE ONLY.
	GO TO 1800

3800	IF(R.EQ.8)GO TO 6


WRTPAG.F4 ------

34	IF(R.NE.17)GO TO 37
	SIG=Q(JK+5)
	IF(ABS(SIG).GE.100.)SIG=99
	LL=Q(JK+2)
	RSIG(LL)=SIG
C⊗⊗⊗10/1/80⊗⊗⊗⊗⊗⊗⊗⊗⊗⊗	IF(IPG.LT.0)RSIG(LL)=SIG
C  DO NOT REPEAT KSIG MADE UP OF NATURALS.
CXX	IF(Q(JK).GT.3)SIG=SIG+Q(JK+6)*100.
CXX  CLEF # IN P6 WITH KEY SIGS.
C  NEXT CHANGES CODE NUM BACK TO ORIGINAL
37	IF(R.LT.33)GO TO 130

PGSUB.F4 ----- SUBROUTINE FILEIN

	IF(KQ.EQ.44.AND.Q(KPN(KPX)).GT.2)GO TO 120
C SKIP OVER DASHES, ETC. (KQ=44 BUT BIGGER WD.CNT.)
	KPX=KPX+1
	GO TO 520
120	IF(NPX.LE.KPX)GO TO 10